CAADiameters_MercurySemidiameterB <-
function(Delta){
.Call("CAADiameters_MercurySemidiameterB", Delta)
}
